home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
program
/
swagd_f.zip
/
EGAVGA.SWG
/
0181_Mode 13 Fast Clear Screen.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1995-03-03
|
318b
|
16 lines
{
> How do I clear the screen fast (asm code please) in mode 13h
> (320x200x256)???????
}
Procedure ClearScreen(Col : Byte); assembler;
asm
mov ax, $A000
mov es, ax
mov cx, 32000
xor di, di
mov al, Col
mov ah, al
rep stosw
end;
{ that should do it. It'll clear it to Col }